home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1995 December / Computer Life December 1995.iso / tapcis / login.tap < prev    next >
INI File  |  1995-08-13  |  16KB  |  759 lines
  1. [*About Login.TAP*]
  2. Version 1.00 11-Aug-95
  3.  
  4. This LOGIN.TAP file contains TAPCIS 6.0 standard login procedures for
  5. supplemental networks. The currently supported networks are listed under
  6. the [*Logins*] heading below, in the format <login>=Network Name. To use
  7. one of these login procedures, enter the <login> name for the network you
  8. are calling in the "Script" field of the Setup|Phone dialog. For example,
  9. to use the standard login for "GNS DialPlus", enter DIALPLUS in the Script
  10. field.
  11.  
  12. (See the "*Model script*" heading at the end of this file for sample script
  13. routines that can be clipped and customized for use with packet data
  14. networks whose login procedures require user-specific NUI's and passwords.)
  15.  
  16. [*Logins*]
  17. ALASKANET=AlaskaNet (a Tymnet variation)
  18. CHILE=ChilePac, the Chile packet data network
  19. CISHOST=CompuServe node using 'CIS' Host name
  20. CISZA=CompuServe South Africa
  21. CONNLATA=ConnNet LATA Network in Ct.
  22. CTRLC=CompuServe node using ^C to reach User ID: prompt
  23. DATEX-J=German Datex-J Network
  24. DATEX-P=German Datex-P Network
  25. DIALPLUS=GNS DialPlus
  26. DPC1200=Canadian DataPac (1200bps)
  27. DPC=Canadian DataPac
  28. FENICS=FENICS CompuPass for Japan
  29. FENICS2=FENICS Road 2 for Japan
  30. FRANCE=French Transpac
  31. INFOCSI=CSC/Infonet CSI Locations
  32. INFOEURO=CSC/Infonet Europe
  33. INFONET=CSC/Infonet WorldWide
  34. ISRAEL24=IsraKav 2400bps
  35. ISRAEL96=IsraKav 9600 or 14400bps
  36. KOREA=Korean POSDATA Service
  37. LATANET=LATA Networks
  38. MANUAL=manual login using keyboard
  39. MERCURY=UK Mercury *Data* Network
  40. NIFTY=FENICS using NIFTY Leased Line for Japan
  41. PACIFIC=PacNet from Guam, American Samoa and Saipan
  42. PACNET=PacNet (a Tymnet variation)
  43. SCITOR=Scitor network
  44. SEVA=SEVA network in Italy
  45. SPRINT12=GTE SprintNet 1200bps
  46. SPRINT24=GTE SprintNet
  47. SPRINTALT=GTE SprintNet International/Alternate
  48. SPRINTIN=GTE SprintNet International
  49. SWISS=Swiss TELEPAC Network
  50. TAIWAN=TTNServe (Taiwan)
  51. TYMNET=BT Tymnet
  52.  
  53. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  54.  
  55. [Login.Tap]
  56. Echo "Connecting to CompuServe using standard Login [" @LoginScr$ "]"
  57. Goto @LoginScr$
  58.  
  59. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  60.  
  61. [Manual]
  62. Echo "TAPCIS Manual Login"
  63. Echo "Use keyboard to connect to Host name: or User ID: prompt"
  64. Echo "Press F7 when finished"
  65. Interact
  66. USend ""
  67. End
  68.  
  69. [CTRLC]
  70. Echo "TAPCIS Login to CompuServe Node using Ctrl+C"
  71. Pause 2
  72. USend/noline "^C"
  73. Wait ":"
  74. USend ""
  75. End
  76.  
  77. [CISHost]
  78. Echo "TAPCIS Login to CompuServe Node using CIS Host Name:"
  79. Pause  2
  80. USend  ""
  81. Wait   "Name:"
  82. Pause  1
  83. USend  "CIS"
  84. End
  85.  
  86. [DialPlus]
  87. Echo  "TAPCIS Login via GNS DialPlus"
  88. WaitList
  89.     1 = "RETURN:"
  90.     2 = "Connected to"
  91.     EndList
  92. [DialPlus Wait]
  93. DoWaitList
  94. if ( @waitMatch# = 2 ) goto "DialPlus Success"
  95. Pause 1
  96. USend "UKCNS"
  97. Goto "DialPlus Wait"
  98. [DialPlus Success]
  99. End
  100.  
  101. [Chile]
  102. Echo "TAPCIS login via ChilePac, the Chile PDN"
  103. ; Based on CHILE.SCR, by Jeff Gulliford
  104. ; GO PHONES for ~19 node numbers.  9600 is supported.
  105. ; GO RATES; Surcharges, for the cost reversed to your CIS account.
  106. Pause 5
  107. USend ""
  108. Pause 1
  109. USend ""
  110. Wait  "@"
  111. Pause 1
  112. USend "CSERVE"
  113. End
  114.  
  115. [CISZA]
  116. Echo 'TAPCIS login via CompuServe South Africa'
  117. ; Based on CISZA.SCR, by Iain MacCallum
  118. Pause 3
  119. USend "X.28"
  120. Wait  "NUI?"
  121. Pause 1
  122. USend "901040oz3uac10634679"
  123. End
  124.  
  125. [DATEX-J]
  126. Echo "TAPCIS login via the German DATEX-J Network"
  127. ; Based on DATEX-J.SCR, by Jeff Gulliford and Gerhard Silbermann
  128. ; The phone number is 01910 throughout Germany.  Max speed is 2400.
  129. Pause 3
  130. USend "."
  131. Wait  "ung:"
  132. Pause 1
  133. USend "000255975978"
  134. USend ""
  135. Pause 1
  136. USend ""
  137. Wait  "ame:"
  138. Pause 1
  139. USend "CIS"
  140. End
  141.  
  142. [DATEX-P]
  143. Echo "TAPCIS login via the German DATEX-P Network"
  144. ; Based on DATEX.SCR  Version 5.41 07/26/92
  145. Pause 1
  146. USend "."
  147. Wait  "DATE"
  148. Pause 1
  149. USend "R 4569002330"
  150. Wait  "ame:"
  151. Pause 1
  152. USend "CIS"
  153. End
  154.  
  155. [Fenics]
  156. Echo "TAPCIS login via FENICS CompuPass"
  157. [Fenics Wait*]
  158. Wait/5 '*'
  159. if ( @waitmatch# ) goto "Fenics Prompt"
  160. USend ""
  161. Let attempt# = attempt# + 1
  162. if ( attempt# < 6 ) goto "Fenics Wait*"
  163. Fail
  164. [Fenics Prompt]
  165. Pause 2
  166. USend "C CIS"
  167. End
  168.  
  169. [Fenics2]
  170. Echo "TAPCIS login via FENICS Road 2"
  171. Pause 3
  172. USend "@P"
  173. Wait  "*"
  174. Pause 1
  175. USend "C CIS"
  176. End
  177.  
  178. [France]
  179. Echo "TAPCIS login via the French Transpac service"
  180. ; Based on FRANCE.SCR by Francois Ghoche
  181. ; The phone number from anywhere in France is 36 06 24 24.
  182. Wait  "SPAC"
  183. Pause 3
  184. USend "19628030"
  185. Wait  "ame:"
  186. Pause 1
  187. USend "CIS"
  188. End
  189.  
  190. [Israel24]
  191. Echo "TAPCIS login via IsraKav from Israel at 2400bps"
  192. ; Based on ISRAEL.SCR, by Les Easterman
  193. ; The phone number for the node is 131 (local call from anywhere in Israel).
  194. ; New address as of March 1995.
  195. Pause 1
  196. USend "@D"
  197. Wait  "="
  198. Pause 1
  199. USend "D1"
  200. Wait  "@"
  201. Pause 1
  202. USend "3300045217"
  203. End
  204.  
  205. [Israel96]
  206. Echo "TAPCIS login via IsraKav from Israel at 9600 or 14400bps"
  207. ; Based on ISRAEL96.SCR, by Judah Warshaw
  208. ; See ISRAEL24.SCR for 2400bps via a single local phone number.
  209. USend ""
  210. Wait  "*"
  211. Wait  ">"
  212. Pause 1
  213. USend ".CSERVE"
  214. End
  215.  
  216. [Korea]
  217. Echo "TAPCIS login via the Korean POSDATA Service"
  218. ; Based on KOREA.SCR, by Roger White
  219. USend ""
  220. Pause 1
  221. USend ""
  222. Wait  "@"
  223. Pause 1
  224. USend "CNS"
  225. Wait  "ame:"
  226. Pause 1
  227. USend "CIS"
  228. End
  229.  
  230. [ConnLata]
  231. Echo "TAPCIS login via Ct. LATANET"
  232. Let  char$ = "H"
  233. Goto "Latanet Common"
  234.  
  235. [Latanet]
  236. Let  char$ = "."
  237. Goto "Latanet Common"
  238.  
  239. [Latanet Common]
  240. Pause 1
  241. USend/noline char$
  242. Pause 1
  243. USend/noline char$
  244. Pause 1
  245. USend/noline char$
  246. Pause 1
  247. USend ""
  248. Wait  "*"
  249. Pause 1
  250. USend ".CPS"
  251. Wait  "ame:"
  252. Pause 1
  253. USend "CIS"
  254. End
  255.  
  256. [Mercury]
  257. Echo "TAPCIS login via the UK Mercury *Data* Network"
  258. ; Based on MERCURY.SCR, by John Hall
  259. USend ""
  260. Pause 1
  261. USend ""
  262. Wait  "VICE"
  263. Wait  "*"
  264. Pause 1
  265. USend ",,UKCNS"
  266. Wait  "ame:"
  267. Pause 1
  268. USend "CIS"
  269. End
  270.  
  271. [Nifty]
  272. Echo "TAPCIS login via FENICS NIFTY Leased Line"
  273. Echo "(this is a limited service connection)"
  274. Pause 2
  275. USend ""
  276. Wait  "FENICS"
  277. Wait  "*"
  278. Pause 1
  279. USend "C CPS"
  280. Wait  "ame:"
  281. Pause 1
  282. Send/noline "C"
  283. Pause 1
  284. Send/noline "P"
  285. Pause 1
  286. Send/noline "S"
  287. Pause 1
  288. USend       ""
  289. End
  290.  
  291.  
  292. [Pacific]
  293. Echo "TAPCIS login via PacNet from Guam, American Samoa and Saipan"
  294. ; Based on PACIFIC.SCR, by Jeff Gulliford
  295. ; The next line may have to be changed to U A^M
  296. USend/noline "A"
  297. Wait  " in:"
  298. Pause 1
  299. USend "CNSG"
  300. Wait  "ame:"
  301. Pause 1
  302. USend "CIS"
  303. End
  304.  
  305. [Scitor]
  306. Echo "TAPCIS login via the Scitor network"
  307. ; Based on SCITOR.SCR, by Jeff Gulliford
  308. Pause 1
  309. USend "."
  310. Wait  ":"
  311. Pause 1
  312. USend "NUI 19730001"
  313. Wait  ":"
  314. Pause 1
  315. USend "KHS9NE"
  316. Wait  ":"
  317. Pause 1
  318. USend "2111855"
  319. Wait  "ame:"
  320. Pause 1
  321. USend "CIS"
  322. End
  323.  
  324. [SEVA]
  325. Echo "TAPCIS login via the SEVA network in Italy"
  326. ; Based on SEVA.SCR, by Jeff Gulliford
  327. ; GO PHONES for 40+ node numbers; NTW name SEV.  9600 is supported.
  328. ; GO RATES; Surcharges, for the charge reversed to your CIS account.
  329. Pause 1
  330. Usend ""
  331. Pause 1
  332. Usend ""
  333. Wait  "GIN:"
  334. Pause 1
  335. Usend "CSERVE-41"
  336. Wait  "ame:"
  337. Pause 1
  338. Usend "CIS"
  339. End
  340.  
  341. [Taiwan]
  342. Echo  "TAPCIS login via TTNServe (Taiwan)"
  343. ; Based on TAIWAN.SCR, by Pepe Fields
  344. Pause 3
  345. USend ""
  346. Wait  "@"
  347. Pause 1
  348. USend "CNST"
  349. Wait  "ame:"
  350. Pause 1
  351. USend "CIS"
  352. End
  353.  
  354. [AlaskaNet]
  355. Echo "TAPCIS Login via AlaskaNet"
  356. Let  Host$ = "CNS"
  357. Goto "Tymnet Common"
  358.  
  359. [PacNet]
  360. Echo "TAPCIS Login via PacNet"
  361. Let  Host$ = "CNSG"
  362. USend/noline "A"
  363. Goto "Tymnet Common"
  364.  
  365. [Tymnet]
  366. Echo "TAPCIS Login via BT Tymnet"
  367. ; Some Tymnet nodes do not like MNP. You may need to
  368. ; disable it, especially for 1200/2400 bps nodes.
  369. Let  Host$ = "CPS"
  370. Goto "Tymnet Common"
  371.  
  372. [Tymnet Common]
  373. WaitList
  374.     1 = "identifier"
  375.     2 = "log in:"
  376.     EndList
  377.  
  378. Echo "Waiting for response"
  379.  
  380. [Tymnet Wait]
  381. DoWaitList/5
  382. Goto "Tymnet Match" @waitMatch#
  383.  
  384. [Tymnet Match1]
  385. if ( sentA = @false ) goto "Tymnet SendA"
  386. goto "Tymnet Wait"
  387.  
  388. [Tymnet Match2]
  389. Pause 1
  390. USend Host$
  391. Goto "Tymnet Success"
  392.  
  393. [Tymnet Match0]
  394. Let attempt# = attempt# + 1
  395. if ( sentA  = @false ) goto "Tymnet SendA"
  396. if ( attempt# < 5 ) goto "Tymnet Wait"
  397. Fail
  398.  
  399. [Tymnet SendA]
  400. USend/noline "a"
  401. Let sentA = @true
  402. Goto 'Tymnet Wait'
  403.  
  404. [Tymnet Success]
  405. End
  406.  
  407.  
  408. [SPRINT12]
  409. Echo "TAPCIS Login via U.S. Sprintnet, 1200 bps"
  410. Pause 3
  411. USend ""
  412. Pause 1
  413. USend/noline "D"
  414. Pause 1
  415. USend ""
  416. Wait  "TERMINAL="
  417. USend "D1"
  418. Wait  "@"
  419. USend "C 202202"
  420. End
  421.  
  422. [SPRINT24]
  423. Echo "TAPCIS Login via U.S. Sprintnet, 2400 bps"
  424. Pause 3
  425. USend/noline "@"
  426. Pause 1
  427. USend/noline "D"
  428. Pause 1
  429. USend   ""
  430. Wait  "TERMINAL="
  431. USend "D1"
  432. Wait  "@"
  433. USend "C 202202"
  434. End
  435.  
  436. [SPRINTIN]
  437. Echo "TAPCIS login via SprintNet International"
  438. Echo "(for 2400/9600/14400bps access only)"
  439. USend/noline "@"
  440. Pause 1
  441. USend/noline "D"
  442. Pause 1
  443. USend ""
  444. Wait  "="
  445. Pause 1
  446. USend ""
  447. Wait  "@"
  448. Pause 1
  449. USend "C 2020020205"
  450. Wait  "ame:"
  451. Pause 1
  452. USend "CIS"
  453. End
  454.  
  455. [SPRINTALT]
  456. Echo "TAPCIS login via SprintNet International, alternate"
  457. Echo "(for 2400/9600/14400bps access only)"
  458. USend/noline "@"
  459. Pause 1
  460. USend/noline "D"
  461. Pause 1
  462. USend ""
  463. Wait  "="
  464. Pause 1
  465. USend ""
  466. Wait  "@"
  467. Pause 1
  468. USend "C 614 227"
  469. Wait  "ame:"
  470. Pause 1
  471. USend "CIS"
  472. End
  473.  
  474. [DPC]
  475. Echo "TAPCIS Login via DataPac"
  476. Pause 3
  477. USend "..."
  478. Wait  "PAC:"
  479. Pause 1
  480. USend "P 29400138"
  481. End
  482.  
  483. [DPC1200]
  484. Echo "TAPCIS Login via DataPac (1200bps)"
  485. Pause 3
  486. USend ".."
  487. Wait  "PAC:"
  488. Pause 1
  489. USend "P 29400138"
  490. End
  491.  
  492. [Swiss]
  493. Echo  "TAPCIS login via the Swiss TELEPAC Network"
  494. ; Based on SWISS.SCR Version 5.41
  495. Pause 1
  496. USend "."
  497. Wait  "PAC:"
  498. Pause 1
  499. USend "R 47911303"
  500. Wait  "ame:"
  501. Pause 1
  502. USend "CIS"
  503. End
  504.  
  505. [InfoNet]
  506. Echo "TAPCIS Login via Infonet WorldWide network."
  507. Echo "  Do NOT use this script in Europe!  "
  508. Echo "In Europe use INFOEURO (save lots of money!)"
  509. Echo "From Infonet 'CSI' locatione use INFOCSI"
  510. Let InfoHost$ = "CPS"
  511. Goto "InfoNet SendCR"
  512.  
  513. [InfoEuro]
  514. Echo "TAPCIS Login via Infonet Europe network."
  515. Echo "  For use within Europe only!  "
  516. Echo "From Infonet 'CSI' locatione use INFOCSI"
  517. Echo "From non-CSI locations use INFONET for Infonet Worldwide"
  518. Let InfoHost$ = "CSF"
  519. Goto "InfoNet SendCR"
  520.  
  521. [InfoCSI]
  522. Echo "TAPCIS Login via Infonet network from CSI Locations"
  523. Echo "  Do NOT use this script in Europe!  "
  524. Echo "In Europe use INFOEURO (save lots of money!)"
  525. Echo "From non-CSI locations use INFONET for Infonet Worldwide"
  526. Let InfoHost$ = "CSI"
  527. Goto 'InfoNet SendCR'
  528.  
  529. [InfoNet SendCR]
  530. Let attempt# = attempt# + 1
  531. if ( attempt# = 8 ) goto 'InfoNet Failed'
  532. Pause 1
  533. USend ""
  534. Wait/1 "#"
  535. if ( @waitMatch# = 0 ) goto 'InfoNet SendCR'
  536. Pause 1
  537. USend "C"
  538. Wait  ":"
  539. Wait  ":"
  540. Pause 1
  541. USend InfoHost$
  542. Goto 'Infonet Complete'
  543. [InfoNet Failed]
  544. Echo 'Failed after ' attempt# ' tries for # prompt'
  545. Fail
  546. [InfoNet Complete]
  547. End
  548.  
  549.  
  550. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  551. [*Model Scripts*]
  552. The following routines are model scripts which need to be customized,
  553. TAPCIS 6.0 will not use these scripts directly. You can use a model
  554. script to create a custom login script.
  555.  
  556. To create a custom script, select File|Edit from the TAPCIS6 main menu
  557. and enter the filename for your new script (if you use a custom
  558. Scripts directory, be sure to include it in the filename). Once you're
  559. in the TAPCIS editor, press Ctrl+F9 and enter the filename "LOGIN.TAP"
  560. as the file you want to use for clipping. Locate the [login.SCR]
  561. heading of the model script you want to use, block mark and clip it
  562. into your new file, press F7 to return to edit mode and customize the
  563. script as indicated in model script's comments.
  564. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  565.  
  566. [CHINA.SCR]
  567. Echo "TAPCIS login script via ChinaPac, the Chinese PDN"
  568. ; Based on CHINA.SCR, by Lars-Olof Lindgren
  569. ; Your NUI and PASSWORD must be added as below.  Contact the PTT.
  570. ; Note that Hayes has a "Technical Service Station" in Beijing.
  571. Pause 1
  572. USend/noline "."
  573. Pause 1
  574. USend ""
  575. Wait  "pac:"
  576. Pause 1
  577. USend "NUI"
  578. Wait  "XXXX"
  579. Pause 1
  580. USend "PASSWORD"
  581. Wait  "tive"
  582. Pause 1
  583. USend "031329999999800"
  584. Wait  "ame:"
  585. Pause 1
  586. USend "CIS"
  587. End
  588.  
  589. [COLUMBIA.SCR]
  590. Echo  "TAPCIS login via Infonet via COLDAPAQ in Colombia"
  591. ; Based on COLOMBIA.SCR, by Andre Lernhart
  592. ; For use outside Bogotá. Requires a Coldapaq NUI. Contact the PPT.
  593. Pause 2
  594. USend "HH"
  595. Wait  "*"
  596. Pause 1
  597. ; Send access sequence: replace the xxxxxx with your Coldapaq NUI.
  598. USend "Nxxxxxx-466129300+"
  599. Wait  "#"
  600. Pause 1
  601. USend "C"
  602. Wait  ":"
  603. Wait  ":"
  604. Pause 1
  605. USend "CSI"
  606. End
  607.  
  608. [EGYPT.SCR]
  609. Echo  "TAPCIS login via EgyptNet, the Egyptian PDN"
  610. ; Based on EGYPT.SCR, by Gerald Rosenthal
  611. ; Requires an EgyptNet NUI. Contact the PTT; ARENTO (Arab Republic of Egypt
  612. ; National Telephone Office) to get an EgypNet account.
  613. Pause 2
  614. Wait  "ON :"
  615. Pause 1
  616. ; Replace the xxxxxx with your EgyptNet NUI.
  617. USend "Nxxxxxx"
  618. Pause 2
  619. USend "SET19:2"
  620. Pause 1
  621. USend "031329999999800"
  622. Wait  "ame:"
  623. Pause 1
  624. USend "CIS"
  625. End
  626.  
  627. [HONDURAS.SCR]
  628. Echo  "TAPCIS login via the Honduran PDN Hondutel"
  629. ; Based on HONDURAS.SCR, by Gerald Rosenthal
  630. ; An NUI and password are needed.  Contact the PTT.
  631. ; Nxxxxxx is your Hondutel password and yyyyyyy is your NUI.
  632. ; The password is repeated ahead of the 03110... NUA for CIS.
  633. Pause 2
  634. USend "H"
  635. Wait  "*"
  636. Pause 1
  637. USend "Nxxxxxx-yyyyyyy"
  638. Wait  "*"
  639. Pause 1
  640. USend "Nxxxxxx-0311020200202"
  641. End
  642.  
  643. [INDIA.SCR]
  644. Echo  "TAPCIS login via GPSS, the PDN in India"
  645. ; Based on INDIA.SCR, by Jim Jackson
  646. ; Obtain a password (account) from Videsh Sanchar Nigam Ltd (the local PT&T).
  647. ; It can be done in one day, mostly they want a letter stating your intent
  648. ; to pay their bill.  Billing can be months after the charges are incurred.
  649. ; The NUI(yyyyyyyyyyy)31329999999800 is all together:
  650. ; NUI+the password in parentheses+the address
  651. Pause 3
  652. USend ""
  653. Wait  3500
  654. Pause 2
  655. USend "NUI(yyyyyyyyyyy)31329999999800"
  656. Wait  "ame:"
  657. Pause 1
  658. USend "CIS"
  659. End
  660.  
  661. [ITALY.SCR]
  662. Echo  "TAPCIS login via ITAPAC, the Italian PDN"
  663. ; Based on ITALY.SCR, by Thomas Unger
  664. ; Replace "NXXXXXX" with your own NUI. The NUA in the same line
  665. ; (02624569002330) is CompuServe in Germany.  You may substitute other
  666. ; European CIS NUA's you prefer.  Some Itapac nodes do not understand MNP5.
  667. Pause 1
  668. USend ""
  669. USend ""
  670. USend ""
  671. Wait  "ACP:"
  672. Pause 1
  673. USend "NXXXXXX-02624569002330"
  674. Wait  "ame:"
  675. Pause 1
  676. USend "CIS"
  677. End
  678.  
  679. [KUWAIT.SCR]
  680. Echo "TAPCIS login via GULFNET (aka Sprintnet), the Kuwait PDN"
  681. ; Based on KUWAIT.SCR, by Kevin Hoover
  682. ; Your NUI and PASSWORD must be added as below.
  683. ; Note that there is a reverse charging SprintNet node available also,
  684. ; no NUI or local account needed.  GO RATES; Surcharges, for the rate.
  685. ; The script is only for 2400bps, or 9600 if supported.
  686. Pause 10
  687. USend ""
  688. Pause 1
  689. USend "D"
  690. Pause 3
  691. USend ""
  692. Pause 2
  693. USend ""
  694. Pause 2
  695. Wait  "@"
  696. USend "202202,NUI,PASSWORD"
  697. End
  698.  
  699. [MIDLEAST.SCR]
  700. Echo "TAPCIS login via Saudi ALWASEET and UAE EMDAN packet data networks"
  701. ; Based on ALWASEET.SCR, by Martijn Balhuizen
  702. ; Your Alwaseet/Emdan NUI must be added.  Contact the PTT.
  703. Pause 3
  704. USend "HH"
  705. Wait  "*"
  706. Pause 1
  707. USend "NUI-031329999999800"
  708. Wait "ame:"
  709. Pause 1
  710. USend "CIS"
  711. End
  712.  
  713. [PAKISTAN.SCR]
  714. Echo  "TAPCIS login via PakNet, the PDN in Pakistan"
  715. ; Based on PAKISTAN.SCR, by Qamar Aftab
  716. ; An NUI is necessary.  Contact the PTT for an account
  717. Pause 3
  718. USend ""
  719. Wait  "NUI?"
  720. Pause 1
  721. USend "yourNUI"
  722. Pause 1
  723. USend "nasynchprotoc"
  724. Wait  "ADD?"
  725. Pause 1
  726. USend "a9234212303300"
  727. Wait  "ame:"
  728. Pause 1
  729. USend "CIS"
  730. End
  731.  
  732. [TURKEY.SCR]
  733. Echo  "TAPCIS login via TURPAK, the Turkey PDN"
  734. ; Based on TURKEY.SCR by Tolga Yurderi
  735. ;
  736. Pause 1
  737. USend/noline "."
  738. Pause 1
  739. USend/noline "."
  740. Pause 1
  741. USend "."
  742. Wait  "PAK:"
  743. Pause 1
  744. ; Replace the xxxxxx with your Turpak NUI
  745. USend "xxxxxx"
  746. Wait  "PAK:"
  747. Pause 1
  748. ; Replace the yyyyyy with your password for Turpak
  749. USend "yyyyyy"
  750. Wait  PAK:
  751. Pause 1
  752. ; Use NUA "031329999999800" for direct access to United States.
  753. ; The NUA "0234212303300" is via CompuServe England
  754. USend "0234212303300"
  755. Wait  "ame:"
  756. Pause 1
  757. USend "CIS"
  758. End
  759.